100 PRINT"[147]":GOSUB10000
200 REM  A DECISION MAKER
300 :
400 DIMF$(10),L$(10),F(10),M(10,10),V(10),Z(10):PRINT
600 PRINT"[147]":PRINT
700 PRINTTAB(3)"*** COMPUTERIZED DECISION-MAKER ***"
800 PRINT:PRINT
900 Y$="Y":PRINT"   I CAN HELP YOU MAKE DECISIONS BY"
1000 PRINT"CHOOSING THE BEST POSSIBILITY FOR YOU"
1100 PRINT"OUT OF SEVERAL ALTERNATIVES."
1200 PRINT
1300 PRINT"ALL I NEED TO DO IS ORGANIZE INFORMATIONYOU ALREADY HAVE."
1400 PRINT
1405 PRINT"  WHICH OF THESE BEST DESCRIBES THE TYPEOF DECISION YOU HAVE TO MAKE?
1410 [153]
1500 [153]"1-CHOOSE AN ITEM FROM SEVERAL             ALTERNATIVES."
1600 [153]"2-CHOOSE A COURSE OF ACTION FROM SEVERAL  ALTERNATIVES."
1700 [153]:[153]"WHICH TYPE(1 OR 2) CHOICE DO YOU HAVE TO MAKE":[133]C
1800 [139]C[179]1[176]C[177]2[167]1700
1900 [153]:[139]C[178]1[167][153]"   WHAT TYPE OF ITEM IS IT THAT YOU "
2000 [139]C[178]1[167][153]"NEED TO DECIDE UPON?":[133]S$
2100 [139]C[178]2[167]S$[178]"COURSE OF ACTION"
2200 [153]:[153]"I WILL NOW NEED A LIST OF EACH ":[153]S$;
2300 [153]" THAT YOU ARE ":[153]"CONSIDERING. PLEASE INPUT";
2400 [153]" THEM ONE":[153]"AT A TIME. THE ORDER IS"
2500 [153]"OF NO PARTICULAR IMPORTANCE.":[153]
2608 [133]"FIRST, HOW MANY ARE THERE ALTOGETHER";L0
2700 [139]L0[177][178]2[175]L0[179][178]10[167]2900
2800 [141]9700:[137]2608
2900 [153]:[129]I[178]1[164]L0:[153]:[153]"NUMBER ";I;", PLEASE."
3000 [133]L$(I):[130]I:[153]
3100 [153]"O.K., THIS IS THE LIST UNDER CONSIDERA- TION":[153]
3200 [129]I[178]1[164]L0:[153]I;[163]5);L$(I):[130]I:[153]:[141]9800
3300 [139]B$[179][177]Y$[167]2200
3400 [153]:[153]"   NOW, HOW MANY DIFFERENT FACTORS ARE"
3500 [153]"IMPORTANT TO YOU IN CHOOSING A ";S$;"?":[133]F0
3600 [139]F0[177]1[175]F0[179]10[167]3800
3700 [141]9700:[137]3400
3800 [153]:[153]"  I NEED A LIST OF EACH OF THESE FACTORS "
3900 [129]I[178]1[164]F0:[153]:[153]"FACTOR NUMBER ";I:[133]F$(I):[130]
4000 [153]"LOAD"
4100 [153]:[153]"   NOW LOOK AT THE FOLLOWING LIST OF"
4200 [153]"FACTORS YOU HAVE PROVIDED AND DECIDE"
4300 [153]"WHICH IS THE MOST IMPORTANT TO YOU:"
4400 [153]:[129]I[178]1[164]F0:[153]I;[163]5);F$(I):[130]
4500 [153]:[153]"WHICH FACTOR(BY NUMBER)IS MOST IMPORTANT"
4600 [153]"(INPUT 0 IF YOU WISH TO CHANGE THE LIST) ":[133]F2
4700 [139]F2[178]0[167]3400
4800 [139]F2[179]1[176]F2[177]F0[167]4500
4900 [153]:[153]"   O.K., SUPPOSE WE HAVE A SCALE OF"
5000 [153]"IMPORTANCE THAT RANGES FROM 0 TO 10."
5100 [153]"LET'S SAY ";F$(F2);" HAS A VALUE OF 10,"
5200 [153]"SINCE IT IS AT THE TOP OF THE SCALE/"
5300 [153]"ON THIS SCALE, WHAT VALUE WOULD"
5400 [153]"EACH OF THE OTHER FACTORS HAVE?"
5500 [153]"   (DECIMAL NUMBERS ARE O.K.)":[153]:[129]I[178]1[164]F0
5600 [139]I[178]F2[167]5900
5700 [153]F$(I):[133]F(I):[139]F(I)[177]0[175]F(I)[179][178]10[167]5900
5800 [153]"  YOUR INPUT IS NO GOOD. TRY AGAIN!":[137]5700
5900 [130]
5905 F(F2)[178]10
5910 C[178]0
5915 [129]I[178]1[164]F0
5920 C[178]C[170]F(I)
5925 [130]
5930 [129]I[178]1[164]F0
6000 F(I)[178]F(I)[173]C:[130]:[153]:[153]"NOW CONIDER HOW EACH ";S$
6100 [153]"RATES WITH RESPECT TO EACH OF THE"
6200 [153]"FACTORS. WE WILL CONSIDER EACH FACTOR"
6300 [153]"SEPARATELY AND THEN RATE EACH"
6400 [153]S$;" IN TERMS OF THAT FACTOR"
6500 [153]"ONLY.":[153]
6600 [153]"LET'S CONSIDER ";L$(1);" TO HAVE A"
6700 [153]"VALUE OF 10 ON EACH SCALE."
6800 [153]"THEN EVERY OTHER ";S$
6900 [153]"WILL BE GIVEN A NUMBER HIGHER OR LOWER"
7000 [153]"THAN 10 ACCORDING TO HOW MUCH BETTER"
7100 [153]"OR WORSE THAN ";L$(1);" YOU THINK IT IS.":[129]I[178]1[164]F0:[153]
7200 [153]
7300 [153]"CONSIDERING ";F$(I);" ONLY, AND"
7400 [153]"ASSUMING ";L$(1);" HAS A VALUE OF 10,"
7500 [153]"WHAT VALUE WOULD YOU GIVE TO EACH OF THEFOLLOWING;"
7600 [153]:[129]J[178]2[164]L0
7700 [153]L$(J):[133]M(J,I):[139]M(J,I)[177][178]0[167]7900
7800 [153]"  C'MON, NO NEGATIVE NUMBERS! TRY AGAIN.":[137]7700
7900 [130]J
7905 [153]
7910 M(1,I)[178]10
7915 [130]I
7920 [129]I[178]1[164]F0
7925 C[178]0
7930 [129]J[178]1[164]L0
8000 C[178]C[170]M(J,I)
8005 [130]J
8010 [129]J[178]1[164]L0
8015 M(J,I)[178]M(J,I)[173]C
8020 [130]J
8025 [130]I
8100 [129]J[178]1[164]L0:V(J)[178]0:[129]I[178]1[164]F0:V(J)[178]V(J)[170]M(J,I)[172]F(I)
8200 [130]I
8205 [130]J
8210 [129]I[178]1[164]10
8215 Z(I)[178]I
8220 [130]I
8225 C[178]L0[171]1
8230 [129]J[178]1[164]L0
8300 [129]I[178]1[164]C:N1[178]Z(I):N2[178]Z(I[170]1):[139]V(N1)[177]V(N2)[167]8500
8400 Z(I[170]1)[178]N1:Z(I)[178]N2
8500 [130]I:[130]J:C1[178]Z(1):C2[178]Z(2):C[178]100[173]V(C1):[129]J[178]1[164]L0
8600 V(J)[178]C[172]V(J):[130]:[153]:[153]:D[178]V(C1)[171]V(C2)
8700 [153]"  WELL, YOU BEST CHOICE SEEMS TO BE "
8800 [153]L$(C1);", ";
8900 [139]D[179]10[167][153]"BUT IT'S VERY CLOSE."
9000 [139]D[179]20[175]D[177][178]10[167][153]"BY A FAIR MARGIN."
9100 [139]D[177][178]20[167][153]"BY A GOOD-SIZED MARGIN."
9200 [153]:[153]"HERE'S THE FINAL LIST WITH ";L$(C1)
9300 [153]"GIVEN A VALUE OF 100 AND THE OTHERS SET ACCORDINGLY:"
9400 [153]:[153]:[153]"RATING ",S$:[129]J[178]1[164]L0:C[178]Z(J)
9500 [153]
9600 [153][181](V(C)),L$(C):[130]
9605 [161]K$:[139] K$[178]""[167]9605
9610 [138]
9700 [153]"   THE NUMBER MUST BE BETWEEN 2 AND 10":[142]
9800 [133]"   IS THIS CORRECT (YES OR NO)?";A$
9900 B$[178][200](A$,1):[142]
10000 [153]"LOAD";:[153]"DECISION MAKER"
10100 [153]:[153]
10200 [153]
10300 [153]:[153]:[153]"HAVING A HARD TIME MAKING A DECISION?
10400 PRINT"LET YOUR COMMODORE HELP YOU"
10500 PRINT"":PRINT"  PRESS 'F1' TO END"
10600 PRINT"":PRINT"< PRESS THE SPACE BAR TO CONTINUE.>"
10700 POKE190,0:POKE198,1:GETA$
10800 IFA$="[133]"THEN11005
10810 IFA$=" "THENPRINT"[147]":RETURN
10820 GOTO10700
11005 PRINT"[147]"
11010 PRINT""
11015 PRINT"";
11020 PRINT"* * * THE  END * * *"
11021 PRINT"LOAD"CHR$(34)"PAYLOAD"CHR$(34)",8":PRINT"RUN"
11022 POKE631,13:POKE632,13:POKE198,2
11025 END